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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ONLY IN ACCORDANCE WITH THE TERMS OF SUCH LICENSE AND WITH TH 
INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER 


PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
eeRPOkAT ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS 
SOFTWARE ON EQUIPMENT WHICH iS 


; NOT SUPPLIED BY DIGITAL. 
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++ 
FACILITY: Run-time Library. 


ABSTRACT: 
This module contains the MACRO-32 support routines for LIBSCVT_DX_DXx 
routine. ALl of the entry points are JSB entry points. 


ENVIRONMENT: 
Some entry points require the Caller to have LIBSEMULATE or the 
machine have the full instruction set of VAX-11 architecture. 
Note that this module is for specific support of LIBSCVT_DX_DX routine, 
hence it has no RTL ‘‘globally defined’ entry oint, therefore this 
module assumes that the caller has IV, FU, DV bits in PSW turned on. 


AUTHOR: 
AUTHORS : FAROKH MORSHED, PETER GILBERT 7-FEB-81, VERSION 1, VMS V3.0. 


MODIFIED BY: 


VERSION: 1 
1001 Original. 
1002 Make references to LIBSSIGNAL General mode addressing. FM 30-OCT-81. 
-* 30-Sep-83 fixed a bug reported from run time Library 
SPR. Convert quadword to floating data type, 
if the low longword in quadword has 0 then 
the floating value is number * 2**52, 
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~SBTTL DECLARATIONS 


: PSECT DECLARATIONS: 


-PSECT _LIBSCODE 


: EXTERNAL ROUTINES 


«EXTERNAL L 
MACRO 
SSSDEF 


PIC, SHR, LONG, EXE, NOWRT 


IB$SIGNAL 
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33 oR -SBTTL OBGSCVT_CVTLB_R1 
5 34+ 
76 3 FUNCTIONAL DESCRIPTION: 
4 77; Convert LONGWORD to BYTE 
0 4 : 
0 79 ; 
0 0 ; CALLING SEQUENCE: 
00 13 DBGSCVT_CVTLB_R1 (¢ tong.rl.r. byte.wb.r ) 
900 ¢ 3 This is a JSB entry point. 
4 ; 
33 Bs ; scsatag “wes yg = al ae 
3 == on --> e 
$000 . : 
0000 38 3 
44 9 ; IMPLICIT INPUTS: 
000 90 ; NONE 
0000 91; 
0000 3 3 
0000 93 ; IMPLICIT OUTPUTS: 
0000 94 ; NONE 
0000 95 ; 
0000 96 ; 
0000 97 ; COMPLETION CODES: 
0000 98 ; NONE 
0000 99 ;s 
0000 100 ; SIDE EFFECTS: 
0000 101; 
0000 19 3 
0000 103 ;-- 
0000 104 
0000 105 DBGSCVT_CVTLB_R1 :: 
61 60 F6 0000 106 CVTLB (RO), (R11) ;Convert LONGWORD to BYTE 
05 0003 107 RSB 
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.SBTTL DBGSCVT_CVTLW_R1 


3 ++ 
3; FUNCTIONAL DESCRIPTION: 
Convert LONGWORD to WORD. 


CALLING SEQUENCE: 
DBGSCVT_CVTLW_R1 ( Long.rl.r, word.ww.r ) 
This is a JSB entry point. 


FORMAL PARAMETERS: 
RO ==> Long R1 -=> word 


IMPLICIT INPUTS: 
NONE 


IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
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(RO), (RI) :Convert LONGWORD to WORD 


DBGSCVT_CVTLW_R1 :: 
CVTLW 
RSB 
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.SBTTL DBGSCVT_CVTLH_R1 


Oooo 
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7 
; FUNCTIONAL DESCRIPTION: 
Convert LONGWORD to H_FLOATING. 


COMPLETION CODES: 
NONE 


0 
$5 CALLING SEQUENCE: 
00 DBGSCVT_CVTLH_R1 ( Long.rl.r, hfloat.wh.r ) 
8p This is a JSB entry point. 
$0 FORMAL PARAMETERS: 
00 RO ==> Long R1 ==> hfloat 
00 
00 IMPLICIT INPUTS: 
00 NONE 
00 
00 
00 IMPLICIT OUTPUTS: 
00 NONE 
00 
00 
00 
0 
0 


Os 2» bs 2 — ss ss 2s bs ss 2s bs hs a a a bb ts tt ts tt tt 


DN SSS NNN SIA AAA AAAAAA MMVIII & Et 
SODNAU EWN 0 OD NOAUE WN 0 OONOU FINN "OO OONOWM 


0 
0 
00 SIDE EFFECTS: 
+ OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 
00 oo 
000 
0008 DBGSCVT_CVTLH_R1 :: 
61 60 =“ Bone CVTLH (RO), (R1) Convert LONGWORD to H_FLOATING 
000D 
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. ! ¢ -SBTTL DBGSCVT_CVTROUF_R1 
00D 184 ;++ 
00D 185 ; FUNCTIONAL DESCRIPTION: 
000D «(1 § : Convert unsigned OCTAWORD to FLOAT. 
0000 188 ; 
000D 189 : CALLING SEQUENCE: 
Q00D 190 ; DBGSCVT_CVTROUF_R1 ( octa.ro.r, float.wf.r ) 
Q000D 191 ; This is a JSB entry point. 
Be 
$600 194 : FORMAL PARAMETERS: 
000D 195; RO ==> octa R1 ==> float 
0000 199: 
000D 198 : IMPLICIT INPUTS: 
000D 199 ; NONE 
$388 30 
000D 08 > IMPLICIT OUTPUTS: 
000D 03 ; NONE 
0000 508 
000D 206 : COMPLETION CODES: 
00D 308 sate 
000D 209 > SIDE EFFECTS: 
44 19 : OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 
000D HE ie 
S000 Sia ; 
9000 315 : DEFINE SOME CONSTANTS 
00000011 000D 217 FOUMMY: .BLKL 
00007080 0011 218 -F FLOATING 792281625 14264337593543950336 ;2%#96 
00006080 0015 3h -F-FLOATING 18446744073709551616 s2tt64 
00005080 0019 20 F32 -F-FLOATING 4294967296 peee32 
00004080 $010 $$) -F FLOATING 3 
6051 $8 : FIND THE FLOATING ATOMIC DATA TYPE BY MULTIPLYING EACH LONGWORD 
88 : $e 2 OF OCTAWORD BY AN APPROPRIATE CONSTANT. 
00 1 6 bBGSCVT_CVTROUF_R1 :: 
OF BB 0021 7 PUSHR #*A<RO,R1,R2,R3> 
61 Ds 00 H 8 CLRF (R1) sInitialize destination. 
6 06 00 00 9 MOVL #4, R2 ;Set up the loop counter for 4 times 
53 60 4E 0028 0 10$: cvTLF (RO), R3 iConvert the next LONGWORD to floating 
86 \3 8p : 1 ody 138 iThis longword is positive 
5 7 AF 40 O02F : ADDF F32, ~, sRegattve. so add the difference 
53 06 Are 44 00 ; 4 13$ MULF FDUMMYCR2), R3 sMultiply the result by the constant 
é 40 0 5 ADDF R3, (R1) 3Add in the result to destination 
7 038 6 15$ DECB R :One less time to go around in the loop 
08 13 Bpee 7 BEQL 20$ sFinished if counter is zero 
80 D5 F 8 TSTL (RO) + Next longword of OCTA 
| 


ea od 
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60 B83 oo 39 TSTL (RO) iIs it zero ? 

 <-% 043 40 BEQL 15$ sYes, so ignore it 

—E1 11 0045 See 10$ z;Loop to chomp some more on the OCTA 

0047 ry 208: 
OF BA 0047 4 POPR #*M<RO,R1,R2,R3> 
05 0049 44 RSB 
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DEGSCVT_CVTROUD_R1 46-SEP-1984 DEBUG. SRC JDBGCVTMAC .MAR; 1 
4A 6 -SBTTL DBGSCVT_CVTROUD_R1 
4A 4 
4A ‘3 p++ 
O4A 49 ; FUNCTIONAL DESCRIPTION: 
BoA 29 3 Convert unsigned OCTAWORD to D_FLOATING. 
O4A 26 : 
04A 53 ; CALLING SEQUENCE: 
O4A 54; DBGSCVT_CVTROUD_R1 ( octa.ro.r, dfloat.wd.r ) 
QO4A 55 ; This is a JSB entry point. 
004A 56 ; 
O4A 57; 
O4A 58 ; FORMAL PARAMETERS: 
004A 59 ; RO ==> octa R1 ==> dfloat 
004A 60 ; 
O04A 61; 
004A 66 ; IMPLICIT INPUTS: 
004A 63 ; NONE 
Q04A 64 ; 
004A 265 ; 
004A 266 ; IMPLICIT OUTPUTS: 
004A 267 ; NONE 
004A 508 3 
004A 69 ; 
004A 70 ; COMPLETION CODES: 
004A 71: NONE 
004A ie; : 
004A $f 3; SIDE EFFECTS: : 
Bpea sie ; OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 
004A 276 ;-- 
004A 77 
004A 78 ; 
004A 79 ; DEFINE SOME CONSTANTS 
004A 280 ; 
00052 004A 4 DDUMMY: .BLKL 2 
00000000 00007080 0052 3 -D_FLOATING 19208162314068337 393543950336 72296 
00000000 00006080 005A 28 -D_FLOATING 18446744073709551616 72264 
00000000 tht 4 0062 84 D32 -D_FLOATING 4294967296 peee52 
00000000 00004 BoSA a? -D- FLOATING 1 3 
007 87; FIND THE FLOATING ATOMIC DATA TYPE BY MULTIPLYING EACH LONGWORD 
097 a8 3 OF OCTAWORD BY AN APPROPRIATE CONSTANT. 
8 $0 bacscvt ~GVTROUD_ R1 : 
1F ge 007 91 PUSHR “#°MCRO, R1,R2,R3,R4> 
61 C 0074 38 CLRD (R1) sInitialize destination 
26 04 00 0076 9 MOVL #4, R2 :Set up the loop counter for 4 times 
5 60 6E— 0079 94 10$: CVTLD (RO) R3 Convert the next LONGWORD to floating 
06 14 O07C 95 BGTR 13$ :This longword is positive 
0c 13 OO7E 38 BEQL 15$ 
53 DF AF 60 0080 9 ADDD d32, " Negative. so add the difference 
53 C2 arse 64 BBs 98 138% MULD pny R2), R3 Putt ialy the result by the constant 
61 § 60 0089 9 ADDD R3, (R1) he result to destination 
3 97 008C 00 15$: DECB R foe less time to go around in the loop 
0 13 43 83 BEQL 208 sFinished if counter is zero 
80 D5 9 2 TSTL (RO)+ :Next Longword of OCTA 
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60 D5 0092 03 TSTL (RO) s it zero 
F6 13 094 04 BEQL 15$ :Yes, so ignore it 
E1 11 94 +1 208: BRB 10$ ;Loop to chomp some more on the OCTA 
1F BA 0098 89 “—- POPR «ss #*M<RO,R1,R2,R3,R4> 
05 O09A 08 RSB 
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000000A3 
00000000 00004610 
00000000 00004410 
00000000 00004210 


Sooo: 
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00000000 00004010 8 
0c 
00C 
00C 
we 
61 ia Soc 
36 04 pO O0C7 
5 60 4EFD CA 
07 «14 C 
OF 13 D 
53 DD AF 40FD 00D 
ie AFS¢ 44FD 00D 
61 2 40f0 ODD 
e 9% 0E1 
08 13 Boee 
80 D5 O0E5 


a 


PEPE. D_E QLD Sr BB BB BBE BB WNW AININIAINIAI POP PPPPONNPD 2 2 SO Oe 
AAW $0 OO NO NEW = O OD NAME WIN $$ O OD NAN E WIN $0 OO NAU EWR OOONOUS WN O 


HBGSCVT_CVTROUG_R1 
PUSHR 


10$: 


; CALLIN 


; SIDE EFFE Bt 
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.SBTTL DBGSCVT_CVTROUG_R1 


+ 
FUNCTIONAL DESCRIPTION: 
Convert unsigned OCTAWORD to G_FLOATING 


G SEQUENCE 
DBGS$C 
This 


FORMAL PARAMETERS: 
RO 


==> octa 


; IMPLICIT INPUTS: 
NONE 

; IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


C 
OPCOD 


AX/VMS Macro V04-00 
DEBUG. SRC JDBGCVTMAC MAR; 1 


all a 


UENCE: 
VT_CVTROUG_R1 ( octa.ro.r, gfloat.wg.r ) 
is a JSB entry point. 


R1 ==> gfloat 


RESERVED TO DIGITAL error is possible, see ENVIRONMENT, 


DEFINE SOME CONSTANTS 


-BLKL ¢ 
.G_FLOATING 9 354 

_F G 6;2 
G_FLOATING 42 


G7 FLOATING 1; 


FIND THE FLOATING ATOMIC DATA TYPE BY MULTIPLYING EACH LONGWORD 
OF OCTAWORD BY AN APPROPRIATE CONSTANT. 


950336; 2**96 
#64 


USHR “#*M<RO,R1,R2,R3,R4> ats 

CLRG (R1) sInitialize destination 
MOVL #4, R2 sSet up the loop counter for 4 times 
CVTLG § = (RO), RB sConvert the next LONGWORD to floating 
ody 13$ iThis longword is positive 

ADDG G32, 7 sNepative. so add the difference 

MULG sunny R2], R3 3Mu tiply the result by the constant 
ADDG R35, (R1) zAdd in the result to destination 

DECB R :One less time to go around in the loop 
BEQL 20% Finished if counter is zero 

TSTL (RO)+ Next longword of OCTA 
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2rSeE TSBs S8:25i2F POEL VES Mare v0e MAC.MAR:1 (8) 
{80) zIs it zero ? 
133 ‘Yes, so ignore it 
;Loop to chomp some more on the OCTA 


#*M<RO,R1,R2,R3,R4> 


yy 
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.SBTTL DBGSCVT_CVTROUH_R1 


F 74 
F 75 
F 6 p++ 
OF 77 ; FUNCTIONAL DESCRIPTION: 
Boe 4 3 Convert unsigned OCTAWORD to H_FLOATING rounded. 
Boe 80 ; 
OF +t 3; CALLING SEQUENCE: 
OOF ¢ 3 DBGSCVT_CVTROUH_R1 ( octa.ro.r, hfloat.wh.r ) 
OOF O 83 ; This is a JSB entry point. 
OOFO 84 ; 
ae 
OF 6 ; FORMAL PARAMETERS: 
OOFO 87 ; RO ==> octa R1 ==> hfloat 
O0FO 88 ; 
OOFO 89 ; 
OOFO 90 ; IMPLICIT INPUTS: 
OO0FO 91 ; NONE 
OOFO 92 ; 
00FO 93; 
OOFO 94 ; IMPLICIT OUTPUTS: 
OOFO 95 ; NONE 
00FO 96 ; 
OOFO 97 ; 
OOFO 98 ; COMPLETION CODES: 
OOFO 399; NONE 
OOFO 400; 
OOFO 401 ; SIDE EFFECTS: 
OOFO 402 ; 
OOFO 403 ;-- 
OOFO 404 
OOFO 405 DBGSCVT_CVTROUH_R1 :: 
OF BB OOFO 406 PUSHR #*M<RO,R1,R2,R3> 
60 05 OOF2 407 TSTL (RO) sIf OU is zero, return zero. 
1A 12 OOFS4 408 BNEQ 5$  eey 
04 AO DS OOF6 409 TSTL 4(RO) S neew 
15 i OOF9 410 BNEQ 5$ Raowe 
08 AO OD OOFB 411 TSTL 8(RO) 
10 OOFE ae BNEQ 5$ 
Oc Ad D 0100 41 TSTL 12(R0) ie 
0B 12 #0103 414 BNEQ 5$ ae 
81 D4 0105 415 CLRL (R1)+ sReturn 0 in H. 
81 D4 107 218 CLRL (R1)+ Soman 
81 D4 i 41 CLRL (R1)+ Paes 
61 D4 1 418 CLRL (R1) 2 a wiee 
0079 = 31 9198 rh - BRW 50$ 3Go to RSB back to caller. 
SS WwW @ it ? 1 SUBL2 #18, SP :Make room for nomalized OU. 
1 ? 5 3; Move source *o top of stack to normalize it 
6E 60 70 Hh 425 MOVQ (RO), (SP) :Put OU in here to be 
08 AE O08 AO 7D 0116 426 MOVa 8 (ROS B(SP) ; worked on. 
10 AE 84 118 4 , CLRW 6(SP5 tWe need this extra word for ADWC. 
11E 429 ; Initialize some locations 
11E 450 ; 


| 
J 
| 
| 
| 
| 
| 
j 
| 
i 
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¢ D4 (011 431 CLRL R 3R2 will contain number of shifts. 
D4 QI 4 ¢ CLRL f ; Temporary. 
0 69 : ¢ : ? BICPSW #*x20 sTurn off IV so we can ASHQ 
4 4 5 ; This loop will shift OU Left until MSB is a one. 
124 4 : 10s: 
36 7 1246 & 8 DECL R2 ;Count number of shifts. 
006 0 0126 4 BSBW SHIFT _OU_LEFT sShift OU Left one time. 
OF AE 95 0129 440 TSTB 15(SP) zIs MSB of normalized OU set ? 
F6 = «18 : ‘ ret BGEQ 10$ No, loop again. 
; f ces : Round the OU if needed 
1D 6€ OE —1 1 445 ° BBC #14, (SP), 30$ sIf the bit beyond LSB of H clear no 
4 44 3 rounding is needed. 
19 6€ OF €3 0O1 44 BBCS #15, (SP), 30$ iIf this bit is clear we just need 
0136 448 3 to set it and it is rounded. 
01 AE 80 BF BA 0136 449 BICB #*x80, 1(SP) Painfully round this bit pattern. 
AE 01 CO 0138 450 ADDL #1, 2¢SP) Scene 
OA AE 00 08 0143 $2¢ ADWC #0, 10(SP) Reseed 
OE AE 00 08 Bee $37 ADWC #0, 14(SP) Semaine 
0148 435 : Normalize this bit pattern 
03 10 AE €8 0148 457° BLBS 16(SP), 40$ s1f this bit is on, it means that we 
O14F 458 3 had an overflow on the Last 
O14F 459 3 word, so it is already 
Ber rhe 30s : normalized. 
003A 30 O14 46¢ " « BSBW = SHIFT_OU_LEFT :Normalize it. 
0152 464 ; Put what we have cooked up in the H destination 
O15 466 dos: 
52. 00000080 8F CO 0152 467 = ADDL2 #128, R2 sexp = length of OU (128) - #of shifts. 
61 52 B60 015 468 OVW R2, (R1) 7Put in exponent. 
01 Al 40 8F 88 O15C 469 BISB2 #*x40, 1(R1) sSet the excess bit. 
02 Al OF AE BO 0161 470 MOVW 14(SP5, 2(R1) :Put in the fraction. 
a 
08 Al O08 AE BO 179 238 MOVW 8(SP), B(R1) Seale. 
A Al 86 AE Be 17 474 MOVW 6(SP), 19 {Rt} ; es 
C Al 4 AE B 17A 475 MOVW 4(SP), 12(R1) ne 
OE Al 02 of B0 17F rth MOVW 2(SP), 14(R1) lowemaie 
; BB 0184 47 tog #*x20 sTurn IV back on. 
5E 2 CO 0186 $78 DDL #18, SP Restore SP 
OF BA 189 479 50S: OPR #*M<RO,R1,R2,R3> 
05 : : ? RSB 3RSB back to caller. 
' : ? § : Subroutine to shift OU one to the left 
18C 484 SHIFT_OU_LEFT: aren, 
18C 3=—s 485 CLRB R3 sInitialize R3 
1 ‘ 4 § TSTB 11(SP) zIls MSB of low quad set. 
1 4 RGEQ 10$ 3No. 
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4 
UH_R DEBUG SRC DBGCVTMAC.MAR; 1 9) 
53 96 019 4 § INCB R3 sYes, remember it. 
19 489 108: 
Ot AE of AE 1 79 O19 490 ASHQ ‘3 sShift low quad one time. 
C AE C AE 1 79 198 491 ASHQ igtses. (SP) Shift "of quad one time. 
OC AE O01 00 3 FO O1A1 49 INSV a. r] (SP) f MSB of low | oes was set then set 
BAe 49 ‘lbs of high 
05 O1A7 494 RSB ;Return co" ma a yoo 
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CRO-32 s oq'¢ 33 ¥ 0 
DBGSCVT_CV 4-SEP=1984 25:47:41 ([DEBUG.SRCJDBGCVTMAC MAR; 1 (10) 
3 ~SBTTL DOBGSCVT_CVTRDQ_R1 
49 


p++ 
499 ; FUNCTIONAL DESCRIPTION: 
Convert D_FLOATING to QUADWORD rounded. 


CALLING SEQUENCE: 
DBGSCVT_CVTRDQ_R1 ( dfloat.rd.r, quad.wq.r ) 
This is a JSB entry point. 


FORMAL PARAMETERS: 
RO -=-> dfloat R1 ==> QUADWORD 


P>Prrrrrrrrrrrrrrrrrrrr,r>,r i 


0.09 09 C9 Cd Cd C0 Cd Cd Co Cod Gd Cd Cd CD CD CD CO CO CO COCO CO CDCD COCO CD CDCDCDOCDOCDODCNCD 6 


T 
1 
1 
1 
1 
1 0 
A 
iN 
1 4 
: 308 
1a8 809 
O1a8 808 
SIMs i 
01 214 
01 21§ IMPLICIT INPUTS: 
01 1 NONE 
O1as 818 
01 516 ; IMPLICIT OUTPUTS: 
01 517 NONE 
gs 
O1A 259 COMPLETION CODES: 
ae é 1 NONE 
OIA 356 SIDE EFFECTS: 
O1A 524 NONE 
O1A 525 
O1aa Son 
00000007 aie 258 D.OFF =7 ; Offset to exponent (double) 
O1A 3% DBGSCVT_CVTRDQ_R1 :: 
OF BB OIA 531 PUSHR ~ #*M<RO,R1,R2,R3> ; Save these registers 
61 7C OQIAA 236 LRD R1) ; Initialize result to zero 
52 60 9 O1AC 3 5535 MOVD (RO), R2 ; Grab source (reserved operand?) 
S:° % a 534 BEQL $ : Branch if result is zero 
52. 1000 8F <A2 0181 535 SUBW2 #32aD_OFF, R2 : Scale down by 2**32 
Al 2 68 0186 536 CVTROL Re 4T : Store high-order longword of result 
52. 1000 8F AO O1BA 237 ADDW2 #32aD_OFF, R2 > Scale up by 2e* 
04 Al $6 1BF 8 CVTLD 4(R1)> -(SP) : Convert long back to double 
7 \t3 39 BEQL 10$ 3 P if zero 
6€ 1000 8F A 1¢ 40 sp ty} #32a0_OFF, (SP) : Scale up by 2*232 
52 6 1CA 41 10$: SUBD (SP)+, R2 : Subtract high-order lLongword 
61 .5 6B 0O1CD 248 CVTROL Re (R1) ; Convert rounded remainder to long 
05 18 0100 34 BGEQ ~§=—s-- 208 : Skip if positive 
04 Al OD Ie 44 DECL 4(R1) ; Sign-extend low-order longword 
OF Ba 103 242 20$: = #*M<RO,R1,R2,R3> ; Restore these registers 


nN 
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4=SEP-1984 DEBUG. SRC JDBGCVTMAC.MAR; 1 (11). 
.SBTTL DBGSCVT_CVTDH_R1 | 


o 
<vy 
Cc 


++ 
FUNCTIONAL DESCRIPTION: 
Convert D_FLOATING to H_FLOATING. 


; CALLING SEQUENCE: 
DBGSCVT_CVTDH_R1 ( dfloat.rd.r, hfloat.wh.r ) 
This is a JSB entry point. 


; FORMAL PARAMETERS: 
RO --> dfloat R11 -=-> hfloat 


; IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


: IMPLICIT INPUTS: 
; NONE 

: SIDE EFFECTS: 

3 OPCODE RESERVED 10 DIGITAL error is possible, see ENVIRONMENT. 


DBGSCVT_CVTDH_R1 :: 
CVIDH 


vT 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
4 
1 
01 
4 
1 
01 
4 
1 
01 
01 
4 
1 
01 
01 
01 
01 
01 
01 
01 
01 
: 
a (RO), (R1) Convert D_FLOATING to H_FLOATING 


\-h ~~ 4-4-4 AAA AAA A_A_A_A_A_A_A_A_A_A_A_A_A_ A A_ AAA AAA AA 
) 09 0d CD C9 Gd G0 CD Cd CD Gd Cd CD Cd 0D CD CD CD CD C9 CD CD CD CD CD CD CD CD CD CO CD ODCDCDCD 
PUPUPUDV SUSU SUSU SISUS USSSA POSITS ISIS ISSO 
C809 09 SIN NSN NA AAAAAAAAAMMIMIIIUTUTI 
MO ODNAULS WN) $$ OOONOAUE WN OWOVNOUE WOO 
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10D 4 «SBTTL DBGSCVT_CVTRHL_R1 


NOu 


p++ 
; FUNCTIONAL DESCRIPTION: 
Convert H_FLOATING to LONGWORD rounded. 


©Owo 


91 ; CALLING SEQUENCE: 

DBGSCVT_CVTRHL_R1 ( hfloat.rh.r, long.wl.r } 
This is a JSB entry point. 

FORMAL PARAMETERS: 
RO ==> hfloat R1 --> Long 

IMPLICIT INPUTS: 
NONE 

IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 


GSCVT_CVTRHL_R1 :: 
a. (RO), (R1) ;Convert H FLOATING to LONGWORD rounded 


fw hee lw fw we ww lw lw lalallala lolol alo ole ololalalalalelel ala alal ala) 
MOVOSVVSVTVTVOVVVOVVTVVVVVCVVTVCVVVCTVCVTVCVTCTC0CT0"7 
ee hm ed) hm) mh mh mw) wm) wm) wm) wm ) wm) mh wm) wm) ww) wm) | 
3 I  “§QOOOTOTOOOCOCOCOWOWOOOoOoOowvono 

NOUS WN (OOO NOA UE WN O ODNOUS Wir 


FPAAPAAOAAAAAOAOAOOOOIIUIUIUTIUT 


61 60 6BFD 
05 
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‘WOC*500 DBGSCVT -CVTRHO.R1 Sa raat 33:05:33 toeBuG. sRe DBGCVTMAC .MAR; 1 ° Ah Vv 
1 $38 i ~SBTTL DBGSCVT_CVTRHQ_R1 
1€ 621 ; FUNCTIONAL DESCRIPTION: 
3 ° ¢ ; Convert H FLOATING to QUADWORD rounded. 
ate 624 ; 
1E 625 ; CALLING SEQUENCE: 
O1E 6 $ : DBGSCVT_CVTRHQ_R1 ( hfloat.rh.r, quad.wq.r ) 
O1E 627 ; This is a JSB entry point. 
O1E 628 ; 
O1E 629 ; 
Bie 630 ; FORMAL PARAMETERS: 
1E 631 ; RO ==> hfloat R1 ==> quad 
O1E 6 ¢ : 
O1E 635 ; 
O1E 634 ; IMPLICIT INPUTS: 
O1E 635 ; NONE 
O1E 636 3 
O1E 637 ; 
O1E 638 ; IMPLICIT OUTPUTS: 
O1E 639 ; NONE 
O1E 640 ; 
O1E 641 ; 
O1E #4 ; COMPLETION CODES: 
O1E 643 ; NONE 
O1E 644 ; 
O1E 645 ; SIDE EFFECTS: 
O1E 646 ; 
O1E 647 ; 
O1E 648 ;-- 
OIE 649 DBGSCVT_CVTRHQ_R1 :: 
OF BB OTE 650 PUSHR ~ #*M<RO,R1,R2,R3> ; Save these registers 
61 7C QO1E4 651 CLRQ (R1) ; Initialize result to zero 
534 BiEs 63¢ CLRL R3 ; Initialize rounding bit 
Ht $38 : Find the exponent 
52 60 OF O00 EF OI1E8 656 EXTZV #0, #15, (RO), R2 ; Extract the exponent : 
OD 13 OED 657 BEQL ; Call the number zero if expo. is zero 
52 00004000 8F C2 OIEF 658 SUBL2 #*x4000, R2 ; Take out the excess 
04 19 O1F6 659 BLSS 5$ :; If negative then Quad is zero 
05 14 O1FB 660 BGTR 10$ : Is exponent zero ? 
61 D6 OFA 661 INCL (R1) ; Yes, call it a one 
pire 662 5$: , y 
007d =31 Bice $8? BRw 50$ : Go to the finish Line 
1FF 4 §=6665 ; Check for overflow. If exponent is 63, find rounding bit before we 
1FF 606 3 lose it. 
1FF 86667 ; 
1FF 668 108 
52.3 1FF 86669 SUBL2 #63, R2 ; Bring *.* to right of bit 0 
mY 202 670 BLSS 20$ 3; If exponent < 65, skip this 
OF 14 046 671 BGTR 15$ ; If exponent > 63, we have IV é 
53 8 AO O01 QO EF 86 67 EXTZ7v #1, #1 $cn0) R3 ; Exponent is 63, R3 is the round bit 
5 80000000 8F CA 67 BICL2 #*x80060000, R3 ; Turn on the Sist bit of R3 to flag 
1 674 ; that the round bit has been determined 
OD 11 1 675 BRB 20% : Cont. 


pechccuindecoanae locket i. 
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1 676 15$: 
0000047C 8F 0D 12 67 PUSHL #SS$_INTOVF ; Signal IV 
00000000 ' GF 1 FB 1 ore CALLS #1, G*LIBSSIGNAL ; 4 
oRy ; Move the fraction to the QUAD, and put in a positive sign and MSB 
es bos: 
61 08 AO B80 6 ; MOVW 8(RO), (R1) 3 Move the fraction to QUAD 
02 Al 06 A0~ 80 8 6 684 MOVW gta te 2(R1) ; 
04 Al 04 AO B0 eH MOVW 4(RO), 4(R1) : 
06 Al 02 AO 8 0 6 $ MOVW 2(RO), 6(R1) ; 
61 1 FE er S 8 $8 ASHQ #-2, (R1), (RI) ; Make room for sign and MSB 
07 Al CO BF BA A 688 BICB2 “xC0, 7(R1) ; Make sure two high bits are off 
07 Al 40 8F 88 8 re 44 BISB2 #*x40, 7(R1) ; Sign is '+', MSB is 1 
8 <a 24 3 Find rounding bit if not already done 
53 DS O94 69 TSTL R3 : : —_rmneing bit already found ? 
OA 14 0246 694 BGTR 30$ : 
53 26 CE 0248 695 MNEGL R2, R3 ; RS will contain rounding bit 
5 D? 0248 696 DECL ¢ Look at the right of decimal point 
i a oo! a ogee 44 EXTZV » #1, (RID, R3 ; This is the rounding bit 
025 699 ; Shift the QAUD R2 times 
025 700 ; 
0252 701 $08: 
61 61 52 79 +025 7 ¢ ASHQ Re. (R1), (R11) 3 Shift the QUAD R2 times 
53 95 0256 70 TSTB R 3 pe we need to round 
0B 13 0258 704 BEQL 40$ 3 
52. 61 «00 O25A 705 MOVL (R1), R2 ; De the rounding 
61 01 A2 SE 025d 706 MOVAB 1(R25, (R1) poet 
04 Al 00 D8 0261 #4707 ADWC #0, 4(R1) : 
60 B85 0265 708 40$: TSTw (RO) : Is the H negative ? 
13 14 0267 709 BGTR 50$ 3 No 
61 61 Dg 0269 710 MCOML (R1), (RI) ; Negate the QUAD 
04 A1 O64 Al D o26¢ 711 MCOML 4(R1S, 4(R1) Ben. 
50 61 00 8s 1 gle MOVL (R1), RO ; 
61 01 A0 SE 0274 71 MOVAB 1(ROS, (R1) : 
04 Al 00 DB O278 714 Dwc #0, 4(R1) : 
027C 715 50$: ; 
OF BA O27C 716 POPR #*M<RO,R1,R2,R3> ; Restore these registers 
05 O27E 717 RSB 
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0 44 ri8 2 -SBTTL DBGSCVT_CVTRHO_R1 
7F «6721 5 FUNCTIONAL DESCRIPTION: 
gr 4 ¢ : Convert H_FLOATING to OCTAWORD rounded. 
O27F 724; 
O27F 725 ; CALLING SEQUENCE: 
O27F 7 § 3 DBGSCVT_CVTRHO_R1 ( hfloat.rh.r, octa.wo.r ) 
O27F 727; This is a JSB entry point. 
O27F 728; 
O27F 729; 
8 7F 730 ; FORMAL PARAMETERS: 
iy * ia a RO ==> hfloat R1 ==> octa 
O27F 7 ¢ 3 
O27F 733; 
O27F 734 ; IMPLICIT INPUTS: 
027F ay 3 NONE 
O27F 736; 
O27F 737; 
027F ose 3; IMPLICIT OUTPUTS: 
O27F 739; NONE 
O27F 740 ; 
O27F 741; 
027F oe ; COMPLETION CODES: 
O27F 743; NONE 
O27F 744; 
O27F 745 ; SIDE EFFECTS: , 
8 n 8 3 OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 
0371 748 ;-- 
00000004 OS or S44 O.LEN =4 ; Length in longwords (octaword) 
pete 751 DBGSCVT_CVTRHO_R1 :: 
027F 3g ee : 
O27F 75 3 Initialization 
O27F 754 : 
3F O27F 755 PUSHR #*M<RO,R1,R2,R3,R4,R5> ; Save these registers 
61 C 0281 756 CLRQ (R1) ; Initialize result to zero 
08 Al _ 7C¢ OSez 757 CLRQ 8(R1) ; Initialize result to zero 
7E §660 rere 0286 758 MOVH (RO), =(SP) 3; Grab source (reserved operand?) 
43. 1 8 - £44 BEQL 30$ ; Branch if result is zero 
0 +3 fo! ; The source is not zero; initialize other registers 
51 10 CO 3 Hi 76 ADDL2 #O_LEN®4, R1 ; Address past octaword 
54 51 00 0 +4 764 MOVL R1, R4 ; Save this address 
55 03 oO 0 38 103 MOVL #O_LEN-1, R5 ; Loop counter 
3 44 10$: ; Loop for each Longword of destination 
aa Te: hee, PP ASHL #5, RS, R2 ; Scaling amount (2**5 = 32) : 
53 «51 ~=»0 99 770 MOVL . ; Address where we start decrementing 
—E 52 A2 9¢ 771 SUBW2 = R2, (SP) : Scale down by 2e*(32en) 
1 33 6BF D oF re CVTRHL (SP), =(R1) ; Store high-order _longword of result 
6— 5 AO A377 ADDW2 = R2 : Scale up by 2e*(32en 
7E 61 6EFD eas 774 CVTLH = (RI), =(SP) ; Convert long back to double 
| ae AA 775 BEQL 20% ; Skip if zero 
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10 #11 . 76 BRB 138 ; Jump into decrement loop 
Ae o78 : If the longword was negative, we must sign-extend the result 
80000000 8F 6 D1 A 780 11$ EMPL (R3), #*x80000000 ; Compare with largest negative number 
0 3 8 781 BEQL 12$ 3; If not equal, do a simple decrement 
83 6 D B 7 ¢ MCOML (R3), (R3)+ : subtract one and consider negative 
06 = «11 BA 78 RB 14$ ; Stay in Loop as a is negative 
83 07 BC 784 1+ DECL (R3)+ : Decrement this longword 
05 18 028 oe 13$: BGEQ 15$ ; Jump out of loop if positive 
54 53 D1 O2C 786 14$: CMPL R3, R4 ; See if we are done decrementing 
&9 «OF c 187 BLssu. 118 ; If not past octaword, keep going 
8 Ce 434 : Scale up the sen (if not zero), and subtract from stack temp 
6E 52 ad 02C5 791 15$ Apbw2 = -R2, ; Scale up by 2**(32en) 
6 8E 62FD 8 te rs 20$ SUBH (SP)+, sPisp) ; Subtract high-order Longword 
8 33 eee ; Decrease loop counter, and continue, if more longwords required 
(655 FS aeec 196 SOBGEQ RS, 108 ; Continue Looping 
He P38 30$: : Clean up the stack, and restore registers 
BE 7CFD OCF 800 CLRH = (SP) + ; Pop huge from the stack 
3F 6BA 6(02D2~—Ss 8801 POPR #*M<RO,R1,R2,R3,R4,R5> ; Restore these registers 
05 BSpe HS RSB ; Return from subroutine 
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-SBTTL DBGSCVT_CVTHF_R1 


: FUNCTIONAL DESCRIPTION: 
Convert H H_FLOATING to FLOATING 


; ; CALLING SEQUENCE: 
DBGSCVT _CVTHF Rl (hfloat.rh.r, float.wf.r ) 
This is a JSB entry point. 


; FORMAL PARAMETERS: 
RO --> hfloat R1 -=> float 


; IMPLICIT INPUTS: 
NONE 

; IMPLICIT OUTPUTS: 
NONE 


; COMPLETION CODES: 
NONE 


; ; SIDE E S: 


FFECT 
OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 


is 


(RO), (R1) :Convert H_FLOATING to FLOAT 


GOOCOOSOOOSOOCOOOCOSOSOOOOSOOOSOOOVOOOOOCOOOOCOO 
POPIPIPONPINPININNPINYINIPIPINPNPPPpononeny 

VvuVeVrVTOTVTFTVTVCCTT9T9TCCCTC9CC0C0"C0"00"0C00C00°90"00"0"0 
QPP DV PV PV PU DVS SVSPUSVSVSUSUSUS USS USS USSU USSU SSIS SISOS 
CONAU EWN =O DOONAN WR O OONAULS WN OOONOM 


WANN AAI WIRD POPONININPINPONINYNYN 2 OO OS MK OOOO 


BGSCVT_CVTHF_R1 :: 
CVTHF 
RSB 
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DA 40 ~SBTTL DBGSCVT_CVTHD_R1 
DA 4) 
DA rK: p++ 
DA 45 ; FUNCTIONAL DESCRIPTION: 
BS te ; Convert H_FLOATING to D_FLOATING 
DA *$ ® 
DA 47 ; CALLING SEQUENCE: 
DA 48 ; DBGSCVT_CVTHD_R1 ( hfloat.rh.r, dfloat.wd.r ) 
DA 49 ; This is a JSB entry point. 
DA 50 ; 
DA >> 
DA 26 ; FORMAL PARAMETERS: 
8 DA 535 3 RO --> hfloat R1 -=> dfloat 
DA 54; 
8 DA 55; 
DA 2$ 3 IMPLICIT INPUTS: 
8 DA S7 s NONE 
DA 58 ; 
O2DA 859; 
O2DA 860 ; IMPLICIT OUTPUTS: 
O2DA 861; NONE 
O2DA Ha) 3 
O2DA 863; 
O2DA 864 ; COMPLETION CODES: 
neon 865 ; NONE 
O2DA 866 ; 
ODA 867 ; SIDE EFFECTS: . 
OSA 508 $ OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 
O2DA 870 ;-- 
O2DA 871 DBGSCVT_CVTHD_R1 :: 
61 60 F7FD O2DA He CVTHD (RO), (RI) :Convert H_FLOATING to D_FLOATING 
05 O2DE 87 RSB 
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DBGSCVT_CVTHG_R1 :: 
syne 


a+ 
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93:45:33 pees Macro Vv04-00 
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.SBTTL DBGSCVT_CVTHG_R1 


+ 
FUNCTIONAL DESCRIPTION: 
Convert H_FLOATING to G_FLOATING 


NCE: 
CVTHG_R1 ( hfloat.rh.r, gfloat.wg.r ) 
a JSB entry point. 


CALLIN 


FORMAL PARAMETERS: 
RO --> hfloat R1 --> gfloat 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 
COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 


(RO), (RI) :Convert H_FLOATING to G_FLOATING 


rae, 


LC ---_ -- >>> 
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Woe Sto DBGSCVT_CV VIGHR j 4-SEP-1984 83:23:23 DEBUG. SRC JDBGCVTMAC MAR; 1 . (id) 
Ee at -SBTTL DBGSCVT_CVTGH_R1 
E4 1g 3¢ 
E46 9135; FUNCTIONAL DESERIP TION: 
E46 914 : Convert G_FLOATING to H_FLOATING 
ES 915 ; 
E4 818 3 
E46 917 ; CALLING SEQUENCE: 
E4 318 3 3 DBGSCVT_CVTGH_R1 ( gfloat.rg.r, hfloat.wh.r ) 
E491 : This is a JSB entry point. 
ES 920 : 
ES 921 : 
E4 y § 3 FORMAL PARAMETERS: 
E 9 ; RO ==> gfloat R1 <=> hfloat 
02E4 924 : 
O2E4 925 ; 
8 E46 9 g: ; IMPLICIT INPUTS: 
ES 927; NONE 
8 ES 928 : 
ES 929 : 
O2E4 930 ; IMPLICIT OUTPUTS: 
BSee 931 ; NONE 
02E4 oa6 ; 
O2E4 93 : 
Beet 934 ; COMPLETION CODES: 
O2E4 935; NONE 
O2E4 936 ; 
02E4 937 : SIDE EFFECTS: 
03e4 oa8 | 3 OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 
02E4 940 ;- 
O2E4 941 bBGSCVT ~fVTGH. R1:: 
61 60 S6FD O2E4 ag “CVTGH (RO), (R1) :Convert G_FLOATING TO H_FLOATING 
05 O2E8 94 RSB 


LIBSCVTMAC MACRO- 
v04=600 
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ort for LIBSCVT_DX_D¥ 15-SEP-1984 23:44:33 YAX/VMS Macro V04-00 p 
DBGSCVT_SCALE § ips age 98) 


0U_UP_BY_10_R1~ 4=SEP=1984 23:47:41 ([DEBUG.SRCJDBGCVTMAC.MAR; 1 
945 -SBTTL OBGSCVT_SCALE_OU_UP_BY_10_R1 


Se 


FUNCTIONAL DESCRIPTION: 
Scale an unsigned OCTAWORD up by 10. 


32 
T_SCA 
E9 
E9 ee 
—9 4 i+ 
E9 = 94 : 
E9 «94 : 
E9 950 : 
E9 951 ; 
E9 326 | ; CALLING SEQUENCE: 
E9 953; DBGSCVT_SCALE_OU_UP_BY_10_R1 ( octa.mo.r ) | 
E9 954 ; Pais 1s" a JSB entry point. 
E9 955 : 
8 —9 228 ; | 
Eo «95 : FORMAL PARAMETERS: 
O2E9 958 ; RO ==> octa 
O2E9 959; 
E9 960 : 
E9 961 : IMPLICIT INPUTS: 
E9 96 : NONE 
O2E9 96 : 
02E9 964 : 
O2E9 965 ; IMPLICIT OUTPUTS: | 
02E9 6 : NONE 
O2E9 96 : 
0 E9 968 ; | 
O2E9 969 : COMPLETION CODES: 
0269 970; NONE 
O2E9 971 : | 
oSe9 arg ; SIDE EFFECTS: 
O2E9 97 : | 
O2E9 974 ; NONE 
02E9 975 
02€9 976 baGScVT ~SCALE_OU UP BY 1O_R1 | 
1F BB 8 E9 «(<9 B°MZROTR1CR2,R3,R4> 
54 04 00 EB 978 #4, RG ; Do four longwords 
53 ps O2EE 979 CLAL R3_ 3; Clear the ‘carry' 
51 53 60 OA A O2FO 980 10$: EMUL #10, (RO), R3, RI 3; Multiply low-order longwords 
03 «18 3 981 BGEQ 208 ; Make sure low-order longword 
52 OA CO F 3n6 ADDL2 #10, R2 3 is seen as unsigned 
89 51 00 FA 983 208: MOVL R1, (RO)+ ; Store low longword 
5 52 00 FD 984 VL R2, R3 3; Save the ‘carry' 
ED 54 =F 5 8 0 985 SOBGTR R4, 108 : Continue Loopin ng 
53 rf 0 3a8 TL R3 3; Check for overflow 
— 0 98 BEQL 30$ : Branch if no overflow 
7E 000047C a DO a +43 MOVL #SS$_INTOVF, -(SP) : Integer overflow 
00000000 ' GF 2 oo 9 CALLS #1, G*LIBSSIGNAL ; Signal the error 
1F = =6BA 1 990 30$ PO #*M<RO,R1,R2,R3,R4> 
05 $16 991 RSB ; Return 


; COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 
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4 
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} 3 “SOTTL DBGSCVT_SCALE_OU_DOWN_BY_10_R1 

1 996 ;+4 

1 99 ; FUNCTIONAL DESCRIPTION: 

: 3 3 Scales down an OCTAWORD by 10. 

1 

1 o : CALLING SEQUENCE: 

1 : DBGSCVT_SCALE_OU_DOWN_BY_10_R1 ( octa.mo.r } 

: : This is a JSB entry point. 

1 : 

1 : FORMAL PARAMETERS: 

: : RO ==> octa 

1 : | 

1 : IMPLICIT INPUTS: 

1 : NONE 

’ 3 

1 ; IMPLICIT OUTPUTS: 

: : NONE 

1 : 

1 : 

1 : 

1 : 

1 : 

1 : 

: : 

1 be 

1 

1 

1 

1 


WOWOMM OWNS \ 0909000909 69 00 09 00 G9 CD 09 00 CD C9 CD 0D CD CO CD CD CD CO CD CD CD CDOC 


a aa a a a a a a a = = as 4 — 3 2 3) 4 2 ) — — — 4 ts 2 SS 


SOOO OCOCOOCOCOOCOCOCOCOOCOOCOOOOOOOOOOOOOOOO: 


1F §6BB | ha m<RO, RT.R2, RS, R4> 
54 03 00 OVL #3, R4 ; Do four longwords 
52.4 CLRL : Clear high longword of quad 
51. 6044 00 10$: MOVL (RO)CR4], R1 ; Grab low Longword of quad 
52 6044 51 OA 78 EDIV #10, R1, (RODCR4], R2 : Do a divide 
x6 UUM 30$: CMPL + *R2 : See if remainder too large 
OD 1A BcTRU 50$ : for the next EDIV 
08 15 BLEQ 40$ 3: Simply make remainder smaller 
52 OA co ADDL2 #10, R2 ; Make remainder positive 
6044 0D DECL  (ROSCR4) ; Make quotient smaller 
F1 11 BRB ; Join the looping code 
52 oA C2 40$: SUBL2 #10, R2 ; Make remainder smaller 
E154 F4 50$: SOBGEQ R4, 108 ; Continue looping 
1F BA is POPR #*M<RO,R1,R2,R3,R4> 
05 4 RSB ; Return 


cc. 
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e+ 
FUNCTIONAL DESCRIPTION: 
Scale an unsigned OCTAWORD up by 2. 


CALLING SEQUENCE: 
DBGSCVT_SCALE_OU_UP_BY_2_R1 ( octa.mo.r ) 
This is a JSB entry point. 


~SBTTL DBGSCVT_SCAL 


FUSS EE 


; FORMAL PARAMETERS: 
RO ==> octa 


IMPLICIT INPUTS: 
NONE 


WWININIAN AAAI AIAN AA AANA 


Fl De Re te ie ea ek ek ae le ee kk, ee ek ee ee ke ee ee ek ek ee et et et 


DS Be SD COIN FS COO nt tt kt hh a tt ot 


; IMPLICIT OUTPUTS: 
NONE 


; COMPLETION CODES: 
NONE 


; SIDE EFFECTS: 

NONE 

BGSCV'_SCALE_OU_UP_BY 
PUSHR 


6 


A. AAN AAI AAAI AAI AIAN AAI WII WII 


a aa nk i a kat a a a a a a 8 es 2 8 1  — — 3 ss  — — — 2 2 


000096009 69 G9 09 09 09 SI NIN SII NINA AAA AAOAAAOUIUIUIV 
WOO NANE WIN SO OO NA UE WN $$ O OODNAUE WO ODNOAULS WOO 


SOOOOSOCOCOCOCOCOOCOCOCSOOOOOCOOOOCOOOOOOOOOOOOO 


u2,R1_:: 
1F §6BB BAMZROTRT,R2,R3,R4> 
54 04 00 OVL #4, R4 ; Do four longwords 
53 4 CLRL R ; Clear the ‘carry'‘ 
1 8 @ A 10$: EMUL #2, (RO), R3, R1 3; Multiply low-order Longwords 
03 18 GEQ 20$ 3; Make sure low-order longword 
52 02 C0 4 ADDL2 #2, R2 3 is seen as unsigned 
3 51 d0 5 208: MOVL R1, (RO)+ ; Store low longwor 
5 52 OY 5 OVL R2, R3 : Save the ‘carry’ 
—D 54 «OF 5 SOBGTR R4, 108 ; Continue looping 
53 oS 5 TSTL R3 : Check for overflow 
OE 13 5 BEQL 30$ ; Branch if no overflow 
7E_—-0000047C a dO 5 MOVL #SS$_INTOVF, =(SP) ; Integer overflow 
00000000'GF 01 FB 036 CALLS #1, GALIBSSIGNAL : Signal the error 
Ff BA 6 30$: POPR #*M<RO,R1,R2,R3,R4> 
05 $3 RSB ; Return 
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p++ 
3 FUNCTIONAL DESCRIPTION: 
Scales down an OCTAWORD by 2. 


pole leolelele lolol) 
woonoononono0ono 
woo UPwn— 


CALLING Se OUR mEE | 
DBGSCVT_SCALE_OU_DOWN_BY_2_R1 ( octa.mo.r ) 
This is a JSB entry point. 
FORMAL PARAMETERS: 
RO ==> octa 


SN 


OOooocccon 
OOoooeo0oo 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
NONE 
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PUSH 


SNS 
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A.A AIAN ANIA PINIPUPINPINININIDS 2 OO OS OOD 


1F 6B R™ #*m<RO,RT.R2,R3,R4> 
54 03 00 OVL #3, R4 : Do four longwords 
52. D4 5 CLRL R : Clear high longword of quad 
51 6044 24 10S: MOVL (RO)CR4], R1 : Grab low Longword of quad 
6044 51 02 B 78 EDIV #2, R1, (RODER4], R2 : Do a divide 
52 01 01 ) 30$: CMPL #1, R2 ; See if remainder too large 
OD 1A 4 BGTRU 50 ; _. for the next EDIV 
08 15 86 BLEQ 40$ 3: Simply make remainder smaller 
52 02 co 88 ADDL2 #2, R2 3; Make remainder positive 
6044 0D 8B ECL (RODCR4I : Make quotient smaller 
. 8 BRB 0$ ; Join the looping code 
52 9¢ Ce 9 $08: SUBL2 #2, R ; Make remainder smaller 
£154 F 9 50$: SOBGEQ R4, 108 ; Continue looping 
1F BA 96 POPR #*M<RO.R1,R2,R3,R4> 
5 a8 RSB ; Return 
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9 114 .SBTT SCVT_M RI 
3 He SBTTL DBGSCVT_MULD2_ 
99 1108 3° FUNCTIONAL DESCRIPTION: 
99 1144 ; multiply two DOUBLE floating values. 
33 tea | 
99 1109 : CALLING SEQUENCE: 
99 1168 3 DBGSCVT_MU LD2_ R1 ( mulr.rd.r, prod.md.r ) 
99 1149; This is a JSB entry point . 
SBE 
99 1132 : FORMAL, PARAMETERS : re | 
3 ons r == | 
gg 118 5 23 es | 
99 1156 : IMPLICIT INPUTS: | 
0399 1189 : NONE 
0399 1188 : | 
$399 1160 : IMPLICIT OUTPUTS: | 
0399 1161: NONE | 
B35 11e8 : | 
0399 1164 : COMPLETION CODES: 
is ii 
0399 1167 : SIDE EFFECTS: pa 
0399 1168 : NONE | 
3 1 
61 60 64 $399 1193 BOGSCVT_MULDZ RT 5 (R1) Multiply two D_FLOATING 
88 039 1178 RSB : ocr a) 
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‘j -SBTTL DBGSCVT_MULH2_R1 
Al 
Al * FUNCTIONAL DESCRIPTION: 


Al multiply two H FLOATING floating values. 


CALLING SEQUENCE: 
DBGSCVT _MULH2_ R1 ( mulr.rh.r, prod.mh.r ) 
This isa JSB entry point ‘ 


FORMAL PARAMETERS: 
RO ==> mulr R1 ==> prod 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 
NONE 


COMPLETION CODES: 
NONE 


SIDE EFFECTS: 
OPCODE RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 


(RO), (R1) _ .-sMultiply two H FLOATING 
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AB ~SBTTL OBGSCVT_ASHP_R1 


AB ;++ 
FUNCTIONAL DESCRIPTION: 
; Scale a packed decimal number. 


r 

1 

4 

¢ 

3: CALLING SEQUENCE: 

0; DBGSCVT_ASHP_R1 ene rw.r, srclen.rw.r, srcaddr.ra.r, 

1 round.rb.r, dstlen.rw.r, dstaddr.ra.r ) 

g This is a JSB entry point. 

4: 

> ; FORMAL PARAMETERS: 
RO ==> cnt R 

R4 ==> dstlen R5 


— 


srclen R2 ==> srcaddr R3 = round 
dstaddr 


ooo 


; IMPLICIT INPUTS: 
; NONE 


> IMPLICIT OUTPUTS: 
: NONE 
: COMPLETION CODES: 
¢ NONE 
b 


; SIDE EFFECTS: 
; NONE 


&© Go & Gh & ho eo eo ee ee ww we we we mem weoDwm@De@DDeD 


BGSCVT_ASHP_R1 :: 

PUSHR #*M<RO.R1,R2, RS R4,R5> 
ASHP —- (RO), (RIS, (Re (RB), (R4), (RS) 
POPR #°M<RO,R1,R2,R3,R4,R5> 


A. AANA WIAA NIAAA ANIA 


65 64 63 62 61 60 


or 
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DBGSCVT MUL Poloee S:criat age 38) 


DEBUG. SRC JDBGCVTMAC.MAR; 1 
.SBTTL DBGSCVT_MULP_R1 : 


++ 
3; FUNCTIONAL DESCRIPTION: 
Multiply a packed decimal number. 


CALLING SEQUENCE: 
DBGSCVT_MULP_R1 (mulrlen.rw, mulraddr.ab, muldlen.rw, 
muldaddr.ab, prodlen.rw, prodaddr.ab ) 
This is a JSB entry point. 


1m 
2 
7 1304 
4 ! $ 
at 
7 1 § : 
7 1330; 
7 1331: 
aE 
0387 1334 : FORMAL PARAMETERS: 
0387 1335; RO ==> mulrlen R1 = mulraddr R2 ==> muldlen R3 = muldaddr 
0387 1 § $ R4 ==> prodlen R5 = prodaddr 
Bar 1 
0387 1 $ : IMPLICIT INPUTS: 
0387 1340; NONE 
ae 
0387 1348 : IMPLICIT OUTPUTS: 
0387 1344; NONE 
peer leee 
0387 1347 + COMPLETION CODES: 
baey 1ac8 sa: 
0387 1350 : SIDE EFFECTS: 
0387 1351; NONE 
baBy }aeg | 
0387 1354 DBGSCVT_MULP_R1 :: 
3F 0387 1355 PUSHR #*M<RO,R1,R2,R3,R4,R5> 
64 63 62 61 60 25 0389 1356 MULP = (RO), ~(R1S, (R25, (R3), (RO), (RS) 
3F §=69BA 03C0 1357 POPR #*M<RO,R1,R2,R3,R4,R5> 
05 03C2 1358 RSB 
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: ! $9 -SBTTL DBGSCVT_DIVP_R1 
a 86 p++ 
C 1365 ; FUNCTIONAL DESCRIPTION: 
: ! rf: s Divide a packed decimal number. 
cs 7 06 ; 
C3 1367 ; CALLING SEQUENCE: 
ce oe : DBGSCVT_MULP_R1 (divrlen.rw, divraddr.ab, divdlen.rw, 
sm § 3 divdaddr.ab, quolen.rw, quoaddr.ab ) 
03C3 1370 ; This is a JSB entry point. 
8 C3 1371; 
~“e i 3 
03C¢ 13735 ; FORMAL PARAMETERS: 
O3C3 1374 ; RO ==> divrlen R1 = divraddr R2 <=> divdlen R3 = divdaddr 
03C3 1375; R4 ==> quolen R5 = quoaddr 
03c3 (1 6 3 
03C3 1377 ; 
8 C 1 4 3; IMPLICIT INPUTS: 
C3 1379; NONE 
03C3 1380 ; 
03C 133) 3 
03c3 1 ¢ 3 IMPLICIT OUTPUTS: 
03C3 1383 ; NONE 
03C 1338 3 
03¢c3 1385 ; 
03C 1388 ; COMPLETION CODES: 
03C3 1387 ; NONE 
03C3 1388 ; 
03C 1389 ; SIDE EFFECTS: 
03C3 1390; NONE 
03¢ 133) : 
03c3 (1 35 :<- 
03C3 1393 DBGSCVT_DIVP_R1 :: 
3F 88 8 C3 1394 PUSHR - anne R1,R2,R3,R4,R5> 
65 64 63 62 61 60 2 C5 1395 DIVP (R15, (R25, (R3), (R4), (RS) 
3F BA Oece 1396 POPR S ncho. Ri /R2, rie R4, R5> 
05 O3CE 1397 SB 
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t for LIBSCVT_DX_Dx 15-SEP-1984 23:44:33 VAX/VMS Macro v04-00 p 
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DEBUG. SRC JDBGCVTMAC .MAR; 1 (3) 


o 
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vc 


+ 
FUNCTIONAL DESCRIPTION: 
Compare two H floating values 


—. 1 ee gts 3 
TATUS = DBGSCVT CMPH_ /b ( srci.rh.r, src2.rh.r ) 
thts is a JSB entry point. 


FORMAL PARAMETERS: 
RO ==> srcl R1 ==> src2 


IMPLICIT INPUTS: 
NONE 
IMPLICIT OUTPUTS: 

NON 


wetaent | ge 
src 
src 
srce 


“vue 
3955 
aao 
a Hd 
VUA 


SIDE EFFE 


CT 
OPCOD "RESERVED TO DIGITAL error is possible, see ENVIRONMENT. 


SBGSCVT_CMPH_R1 
CMPH 


61 60 TIED (RO), (RI) 
06 =«1 BEQL 10$ 
07 «#19 BLSS 208 
50 01 43 MNEGL #1, RO isrcl > srce2 
0 108 RSB sFinished 
50 D4 ; CLRL RO They or pre equal 
05 208 RSB sh 
50s FFFFFFFF 8F v0 " MOVL = #=1, RO ssrcl < sre2 
0 RSB sFinished 


SOOOCCOSOOOSOOCOCOCCOOCOCOCOCC SCO OCCOCOCOOOO OOOO OOOOOOOOOOOOOOO <i 
MMS SOS GIGS FG IGAOAAOAAAAOAOAOOAOAAAAOAAOAAOAAAOAAAAAOOO 1 ~— 
Pe SO pales hm ds 1) tee al Oe ae Be Be Bs es Bee Be es Os Rs Be Bs i as ns Dn Bs Be es ns Bn Bs Ds ss hs Be Bn Be ns ns ns es es a 

Ft at tt at et ek tt eee ek hee a eh dt te 
PEEK FANNIN NIGPODIDIPININPONININIDY 2 OOO SM DOOOOOOCOCOCOCNO XO 
PAN OOOO UNE WIN  O OD NAUNE WIN OOD NOUES WN" OOONOUSWN—O”O — 5 
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et a et 8 st te i a tk bt nt es ss bs ts tt a i tt tn 
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LIBSCVTMAC 
Symbol table 


DBGSCVT_SCALE-OU_ 
DBGSCVT_SCALE_OU_ 
DDUMMY 


GDUMMY 
LIBSSIGNAL 
0_LEN 

SAIFT OU_LEFT 
S$S$_INTOVF 


PSECT nome 


J 
MACRO=32 support for LIBSCVT_DX_DX 15-SEP-1984 23:44:33 
wes S +h 2rSEp- 1984 33:05:23 t 


62 R 1 
AB RG 1 
CF RG 1 
108 RG 1 
3 E4 RG 1 
DA RG 1 
000205 RG 1 
8 F RG 1 
RG 1 
BS RG 1 
0 4 RG 1 
4 1A8 RG 1 
400 RG 1 
00 ¢ F RG 1 
000 gS RG 1 
44444 RG 01 
0000021 RG 01 
ates RG 01 
OOOOOFO RG 01 
44 9D RG 01 
gooo0s¢s Re Ot 
80000 $5 RG + 
000003A1 RG 01 
Soo003t8 RE Ot 
0000 8 RG 01 
44-68 RG 01 
0000541 RG 01 
dooooe7 © 
00000019 R 01 
o0000088 ROO 
00000088 Rt 
gereeeee x 01 
= 000000 
0000018C R 01 
= 0000047C 
bowen enw mewn en eee we + 
; Psect synopsis ! 
Allocation PSECT No. Attributes 
00000000 <( 0.) 00 ¢ OO.) NOPIC USR CON ABS-~ LCL NOS 
QOO003E6 ( 998. Oy ¢ i.) PIC USR CON” REL LCL $ 
00000000 < 0.) 02 ¢ 2.) NOPIC USR CON ABS-~ LCL NOS 


AX/VMS Macro V04-00 
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HR NOEXE NORD 
HR EXE RD 
HR EXE RD 


re Ff, 


NOWRT NOVEC BYTE 
NOWRT NOVEC LONG 
WRT NOVEC BYTE 


K 
LIBSCVTMAC MACRO=32 support for LIBSCVT_DX_Dx 
VAX-11 Macro Run Statistics 


Phase Page faults CPU Time Elapsed Time 
Initializati : a 0.9 
Connand processing Ay 4 79 ° 2 ; 
pyabol table sort 225 :00: $4 f : 1:38 
cess ef table output é -06 :00: 0:36 
Psect synopsis output 3 ie 0.0 0:00:00. 
Cross-reference output 399-98 0:00:00.00 
Assembler run totals 549 1 0:00:36.10 


The_ working est Limit was 1350 pages. 
37171 bytes (7 


8 pages of virtual memory were used to define 7 macros. 


Macro Library name Macros defined 
-$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
469 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 


pent ee oes eB ere ew oon ee cena ¢ 


! Performance indicators ! 


tam mow oes ewe eee new eww rene} 


pages) of virtual memory were used to buffer the intermediate 
There were 30 pages of symbol table space allocated to hold 445 non-local and 
1446 source Lines were read in Pass 1, producing 13 object records in Pass 2 


Femme ee newer ence nese acerr econ + 


! Macro Library statistics H 


dnmnanentndies ante oe omen ne a= 


SEp-198e S:chcai 


ggde. 
1 local symbols. 


MACRO/DISABLE : TBK/LIS=LIS$:DBGCVTMAC/0BJ=0BJ$:DBGCVTMAC MSRC$:DBGCVTMAC/UPDATE=(ENHS$: DBGCVTMAC) 


v04-00 
DEBUG. SRC JDBGCVTMAC. MAR; 1 


AH-BT13A-SE DIGI 
VAX/VMS_V4.0 CONF 
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